home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 1752.ZIP / MHD.ZIP / MHLIST.PRG < prev    next >
Text File  |  1986-03-12  |  2KB  |  48 lines
  1. * MHLIST   DB3 PLUS                                  REVISION 03/11/86
  2. *
  3. CLOSE DATABASES
  4. STORE 0 TO line
  5. STORE [ ] TO waiting
  6. CLEAR
  7. ? 'LIST OF ANTIMICROBIALS CONTAINED IN THE DATABASE'
  8. ?
  9. USE MHDRUG INDEX MHGENAME
  10.    * Display each record
  11.    ******** LABEL LINE ***********************************************
  12.    SET COLOR TO I
  13.    @ line + 2, 0 SAY CHR (255) + 'GENERIC NAME' + REPL(CHR(255),5) + 'CLASS';
  14.    + REPL(CHR(255),9) + 'ROUTE' + REPL(CHR(255),4) + 'BRAND NAME';
  15.    + REPL(CHR(255),21) + 'ID:NO' + CHR(255)
  16.    SET COLOR TO
  17.    ?
  18.    STORE line + 2 TO line
  19.    DO WHILE .NOT. EOF()
  20.       ? GEN_NAME + '  ' + CLASS + '  '+ ROUTE + '    ';
  21.       + BR_NAME + '   ' + DRUG_ID
  22.       STORE line + 1 TO line
  23.       IF line >= 20
  24.          ?
  25.          ACCEPT 'MORE DATA. PRESS RETURN TO CONTINUE' TO waiting
  26.          CLEAR
  27.          STORE 0 TO line
  28.          ? 'LIST OF ANTIMICROBIALS CONTAINED IN THE DATABASE'
  29.          ?
  30.          ******** LABEL LINE ***********************************************
  31.          SET COLOR TO I
  32.          @ line + 2, 0 SAY CHR (255) + 'GENERIC NAME' + REPL(CHR(255),5);
  33.          + 'CLASS' + REPL(CHR(255),9) + 'ROUTE' + REPL(CHR(255),4);
  34.          + 'BRAND NAME' + REPL(CHR(255),21) + 'ID:NO' + CHR(255)
  35.          ?
  36.          SET COLOR TO
  37.          STORE line + 2 TO line
  38.       ENDIF line <= 20
  39.       SKIP
  40.    ENDDO WHILE NOT EOF
  41.    ?
  42.    ACCEPT 'END OF DRUG LIST. PRESS RETURN TO CONTINUE' TO waiting
  43. RELEASE ALL
  44. RETURN
  45.  
  46.  
  47.  
  48.